Monster Media 1996 #15/Monster Media Number 15 (Monster Media)(July 1996).ISO/prog_d/leds.zip/MAIN.DFM/MAIN.txt

Text File | 1996-04-06 | 7KB | 325 lines

object MainForm: TMainForm
  Left = 461
  Top = 110
  BorderIcons = []
  BorderStyle = bsDialog
  Caption = 'LED Digit Demo'
  ClientHeight = 198
  ClientWidth = 186
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = [fsBold]
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 20
    Top = 148
    Width = 145
    Height = 21
    Caption = '(c) BisonWare 1995'
    Font.Color = clBlack
    Font.Height = -16
    Font.Name = 'Arial Black'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label2: TLabel
    Left = 8
    Top = 12
    Width = 71
    Height = 13
    Caption = 'The time is :'
  end
  object Label3: TLabel
    Left = 24
    Top = 176
    Width = 127
    Height = 13
    Caption = 'LED Digit Component V7.0'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Button1: TButton
    Left = 4
    Top = 92
    Width = 57
    Height = 25
    Caption = '&Start'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    OnClick = Button1Click
  end
  object Panel1: TPanel
    Left = 4
    Top = 40
    Width = 177
    Height = 49
    BevelOuter = bvLowered
    Color = clBlack
    TabOrder = 1
    object LED1: TLEDDigit
      Left = 116
      Top = 8
      Width = 17
      Height = 33
      CascadeValue = True
      GhostColor = 1133863
      ForwardConnect = LED2
    end
    object LED2: TLEDDigit
      Left = 100
      Top = 8
      Width = 17
      Height = 33
      CascadeValue = True
      MaxValue = 5
      GhostColor = 1133863
      ForwardConnect = LED3
    end
    object LED3: TLEDDigit
      Left = 72
      Top = 8
      Width = 17
      Height = 33
      CascadeValue = True
      GhostColor = 1133863
      ForwardConnect = LED4
    end
    object LED4: TLEDDigit
      Left = 56
      Top = 8
      Width = 17
      Height = 33
      CascadeValue = True
      MaxValue = 5
      GhostColor = 1133863
      ForwardConnect = LED5
    end
    object LED5: TLEDDigit
      Left = 28
      Top = 8
      Width = 17
      Height = 33
      CascadeValue = True
      GhostColor = 1133863
      ForwardConnect = LED6
    end
    object LED6: TLEDDigit
      Left = 12
      Top = 8
      Width = 17
      Height = 33
      CascadeValue = True
      BlankWhenZero = True
      GhostColor = 1133863
    end
    object LED7: TLEDDigit
      Left = 144
      Top = 16
      Width = 17
      Height = 25
      AutoSize = False
      CascadeValue = True
      GhostColor = 1133863
      ForwardConnect = LED1
    end
    object Colon1: TLEDDigit
      Left = 44
      Top = 8
      Width = 13
      Height = 33
      AutoSize = False
      CascadeValue = False
      GhostColor = 1133863
      LEDDisplayType = dtColon
    end
    object Colon2: TLEDDigit
      Left = 88
      Top = 8
      Width = 13
      Height = 33
      AutoSize = False
      CascadeValue = False
      GhostColor = 1133863
      LEDDisplayType = dtColon
    end
    object Stop1: TLEDDigit
      Left = 132
      Top = 8
      Width = 13
      Height = 33
      AutoSize = False
      CascadeValue = False
      GhostColor = 1133863
      LEDDisplayType = dtStop
    end
  end
  object Button3: TButton
    Left = 64
    Top = 92
    Width = 57
    Height = 25
    Caption = 'Sto&p'
    Enabled = False
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    OnClick = Button3Click
  end
  object Button4: TButton
    Left = 124
    Top = 92
    Width = 57
    Height = 25
    Caption = '&Reset'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    OnClick = Button4Click
  end
  object Button2: TButton
    Left = 4
    Top = 120
    Width = 177
    Height = 25
    Caption = '&Close'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    OnClick = Button2Click
  end
  object Panel2: TPanel
    Left = 88
    Top = 4
    Width = 93
    Height = 33
    BorderStyle = bsSingle
    TabOrder = 5
    object ss: TLEDDigit
      Left = 72
      Top = 3
      Width = 14
      Height = 26
      AutoSize = False
      CascadeValue = True
      BackColor = clBtnFace
      SegmentColor = clGray
      GhostColor = clBtnFace
      ForwardConnect = ss2
    end
    object ss2: TLEDDigit
      Left = 60
      Top = 3
      Width = 14
      Height = 26
      AutoSize = False
      CascadeValue = True
      MaxValue = 5
      BackColor = clBtnFace
      SegmentColor = clGray
      GhostColor = clBtnFace
    end
    object mm: TLEDDigit
      Left = 44
      Top = 3
      Width = 14
      Height = 26
      AutoSize = False
      CascadeValue = True
      BackColor = clBtnFace
      SegmentColor = clGray
      GhostColor = clBtnFace
      ForwardConnect = mm2
    end
    object mm2: TLEDDigit
      Left = 32
      Top = 3
      Width = 14
      Height = 26
      AutoSize = False
      CascadeValue = True
      MaxValue = 5
      BackColor = clBtnFace
      SegmentColor = clGray
      GhostColor = clBtnFace
    end
    object hh: TLEDDigit
      Left = 16
      Top = 3
      Width = 14
      Height = 26
      AutoSize = False
      CascadeValue = True
      BackColor = clBtnFace
      SegmentColor = clGray
      GhostColor = clBtnFace
      ForwardConnect = hh2
    end
    object hh2: TLEDDigit
      Left = 4
      Top = 3
      Width = 14
      Height = 26
      AutoSize = False
      CascadeValue = True
      BackColor = clBtnFace
      SegmentColor = clGray
      GhostColor = clBtnFace
    end
    object LEDDigit8: TLEDDigit
      Left = 28
      Top = 3
      Width = 5
      Height = 26
      AutoSize = False
      CascadeValue = False
      BackColor = clBtnFace
      SegmentColor = clGray
      GhostColor = clBtnFace
      LEDDisplayType = dtColon
    end
    object LEDDigit9: TLEDDigit
      Left = 56
      Top = 3
      Width = 5
      Height = 26
      AutoSize = False
      CascadeValue = False
      BackColor = clBtnFace
      SegmentColor = clGray
      GhostColor = clBtnFace
      LEDDisplayType = dtColon
    end
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 1
    OnTimer = Timer1Timer
    Left = 196
    Top = 8
  end
  object Timer2: TTimer
    Interval = 500
    OnTimer = Timer2Timer
    Left = 196
    Top = 40
  end
end